：：留言板：：

<% exec="select * from ly where rt=0 order by id desc" Set RS = Server.CreateObject("ADODB.RecordSet") rs.Open exec, Conn, 1, 2 page=Request("page") if page=0 then page=1 end if RecordCount = 0 do while not rs.Eof RecordCount = RecordCount +1 rs.MoveNext loop if not RecordCount=0 then rs.MoveFirst end if pageCount=RecordCount/15 pageCount=int(pageCount) if (RecordCount mod 15)>0 then PageCount=PageCount +1 end if %> ：：留言板：：

共有主题 <%=RecordCount%> 个，共 <%=pageCount%> 页

<%if page=1 then %> 留言首页

<%else%>

<%end if%>

<%if page=1 then %> 前一页

<%else%>

<%end if%>

<%if pagecount-page=0 then %> 下一页

<%else%>

<%end if%>

页码：<% y=1%><%do while y [<%=y%>] <% y=y+1 loop%>

<%do while pos<(page-1)*15 pos=pos+1 rs.moveNext loop%> <%x=0%> <%do while x<15 and not rs.eof%> <%x=x+1 rs.movenext loop%>

发言主题			作者	回复	阅读	发表时间
<%if rs("jh")=1 then %><%else%>·<%end if%>	">	"><%=rs("title")%>	<%if rs("bl")=1 then %><%=rs("name")%> <%else%><%=rs("name")%><%end if%>	<%=rs("hf")%>	<%=rs("yd")%>	<%=times(rs("t"))%>